﻿<!-- #include file="ding.asp" -->
<!-- #include file="mymin.asp" -->
<%Call Head2()%>
<%
w "<title>访问统计</title></head><body><div class='main400'>"
Dim iprr
Set iprr = Server.CreateObject("ADODB.Recordset")
iprr.open"select HU_Counter,HU_Tod,HU_Today,HU_Yesterday,HU_Browser,HU_Browsers,HU_Counter,HU_Yays from 74hu_counter where id=1",myconn,1,1
If Not iprr.eof Then
w "<table><tr><td>总访问IP:</td><td>"&iprr("HU_Counter")&"</td></tr>"&_
	"<tr><td>最高IP:</td><td>"&iprr("HU_Tod")&"</td></tr>"&_
	"<tr><td>今日IP:</td><td>"&iprr("HU_Today")&"</td></tr>"&_
	"<tr><td>昨日IP:</td><td>"&iprr("HU_Yesterday")&"</td></tr>"&_
	"<tr><td>日均IP:</td><td>"&int(iprr("HU_Counter")/iprr("HU_Yays"))&"</td></tr>"&_
	"<tr><td>今日PV:</td><td>"&iprr("HU_Browser")&"</td></tr>"&_
	"<tr><td>总访问PV:</td><td>"&iprr("HU_Browsers")&"</td></tr>"&_
	"<tr><td>日均PV:</td><td>"&int(iprr("HU_Browsers")/iprr("HU_Yays"))&"</td></tr>"&_
	"<tr><td>统计天数:</td><td>"&iprr("HU_Yays")&"</td></tr></table>"
	if KEYid=1 then
		w "<a href=""llqk.asp?sid="&sid&""">[清空记录]</a>"
	end if
End If
iprr.close
set iprr = nothing
%><br/>----------<%Call rootLast2%>